home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed1.d64 / count ten (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  9KB  |  265 lines
  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  8. 35 IFUW=0THENSYSUU,15
  9. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  10. 45 GETUI$:IFUI$=""THEN45
  11. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
  12. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  13. 60 IFUR=ULTHEN45
  14. 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
  15. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  16. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  17. 95 IFLEN(US$)=0THEN110
  18. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  19. 105 RETURN
  20. 110 IFUA=46THENRETURN
  21. 115 IFUA=32ANDUR<>0THENRETURN
  22. 120 IFUA>47ANDUA<58THENRETURN
  23. 125 IFUA>64ANDUA<91THENRETURN
  24. 130 IFUA<193ORUA>218THENUI$="":RETURN
  25. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  26. 140 RETURN
  27. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,6:POKEUX,6
  28. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
  29. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
  30. 400 PRINT"[147]":POKEUT,UL%:POKEUY,5:POKEUX,5:POKE646,0
  31. 405 PRINT"            [201][206][211][212][210][213][195][212][201][207][206][211] "
  32. 406 PRINT"[151]   * [208]LEASE READ THIS TO THE STUDENT":GOSUB4500:FORT=1TO700:NEXT
  33. 407 PRINT"[144]  [212]HIS IS A GAME WHERE YOU COUNT THE      NUMBER OF SHAPES ";
  34. 408 PRINT"ON THE SCREEN"
  35. 409 PRINT"  AND THEN TYPE THAT NUMBER.
  36. 410 [153]"  (null)OU WILL BE GIVEN THREE CHANCES TO      TYPE THE CORRECT NUMBER.
  37. 415 PRINT"  [212]HERE WILL BE 10 SETS OF SHAPES TO      COUNT.
  38. 418 [153]"  (null)EMEMBER TO PRESS  (null)VAL(null)(null)(null)(null) WAIT AFTER
  39. 419 PRINT"  TYPING YOUR ANSWER. [212]HIS TELLS"
  40. 420 PRINT"  THE COMPUTER TO ACCEPT WHAT YOU"
  41. 425 PRINT"  HAVE TYPED."
  42. 430 GOSUB820
  43. 440 POKE53280,15:POKE53281,15:POKE646,4
  44. 445 PRINT"[147]  AND AWAY WE GO........"
  45. 450 GOSUB791:GOSUB4500:GOSUB790
  46. 455 GOTO1000
  47. 790 FORTM=1TO500:NEXT:RETURN
  48. 791 FORTM=1TO1000:NEXT:RETURN
  49. 792 FORTM=1TO2000:NEXT:RETURN
  50. 793 FORTM=1TO3000:NEXT:RETURN
  51. 795 FORTM=1TO5000:NEXT:RETURN
  52. 800 PRINT"[147]";:POKEUT,UU%:POKEUY,0:POKEUX,0:POKE646,3
  53. 801 PRINT"     A TPUG EDUCATIONAL PROGRAM
  54. 802 [153]"           FOR C64 COMPUTERS
  55. 803 PRINT"             GRADES K TO 1":GOSUB791
  56. 804 PRINT"                                        [146]";
  57. 805 PRINT"                                        [146]";
  58. 806 PRINT"                                        [146]";
  59. 807 PRINT"               COUNT TEN                [146]";
  60. 808 PRINT"                                        [146]";
  61. 809 PRINT"[159]                                        [146]";
  62. 810 PRINT"                                        [146]";
  63. 811 PRINT"                                        [146]":GOSUB791:GOSUB4300
  64. 812 PRINT"          INSTRUCTIONS?   Y/N"
  65. 813 GETR$:IFR$<>"Y"ANDR$<>"N"THEN813
  66. 814 IFR$="Y"THEN400
  67. 815 GOTO440
  68. 820 GOSUB791:GOSUB4500
  69. 823 POKEUN,0:PRINTLEFT$(UD$,24);"[144] [208]RESS [211][208][193][195][197][160][194][193][210] TO CONTINUE [146][155]"
  70. 825 GETUI$:IFUI$<>" "THEN825
  71. 830 RETURN
  72. 835 GOSUB791:GOSUB4500
  73. 837 POKEUN,0:PRINTLEFT$(UD$,24);"[153] PRESS SPACE BAR TO CONTINUE [146][155]"
  74. 840 GETUI$:IFUI$<>" "THEN840
  75. 845 RETURN
  76. 850 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
  77. 855 PRINT" --------------------------------------"
  78. 860 IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,7);"ANSWER, THEN PRESS RETURN[146]
  79. 865 UH[178]0:[153]"":[142]
  80. 900 US[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UB[178]2048:UX[178]53280:UD[178]2064
  81. 902 UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2151:UN[178]198:UY[178]53281:UU[178]2199:UE[178]2087
  82. 904 UC$[178][199](155):UV[178]1214:UF[178]196:UV[178]2238
  83. 905 UD$[178]"":UP$[178]"                                      "
  84. 907 UT$[178]" COUNT TEN"
  85. 909 [142]
  86. 910 [141]900:[153]"LOAD":[153]"CLOSE"
  87. 920 [137] 800
  88. 1000 [153]"LOAD"UC$;:[140]:[151]UY,6:[151]UX,6
  89. 1020 CC[178]0:CT[178]0:CY[178]0:CX[178]0
  90. 1030 UT$[178]" COUNT TEN":
  91. 1040 [151]UT,UL%:UP[178]0:UG$[178]"":UH[178]1:[153][163]12)"(null)OULD YOU LIKE:"
  92. 1050 [153][163]12)"0WAIT SIMPLE SHAPES
  93. 1055 PRINTTAB(18)"OR
  94. 1060 [153][163]12)"1WAIT COMPLEX SHAPES?"
  95. 1070 [153]"      ATNNSWER THEN PRESS  (null)VAL(null)(null)(null)(null) WAITONONONONONONONCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";
  96. 1080 US$[178]"01":UL[178]1:[141]35:A5[178][197](UR$)
  97. 1090 RN[178][181](10[172][187](1))[170]1
  98. 1095 CT[178]CT[170]1:CY[178]0:CX[178]0:RQ[178]RQ[170]1
  99. 1100 [139]RN[178]1[176]RN[178]2[167]P[178]4
  100. 1110 [139]RN[178]3[176]RN[178]4[167]P[178]5
  101. 1120 [139]RN[178]5[176]RN[178]7[176]RN[178]8[167]P[178]3
  102. 1130 [139]RN[178]6[176]RN[178]9[176]RN[178]10[167]P[178]2
  103. 1140 X2[178]31:Y2[178]10:[139]RN[178]10[167]1160
  104. 1150 [137]1170
  105. 1160 X2[178]26:Y2[178]10:X3[178]33:Y3[178]10
  106. 1170 RS[178][181](P[172][187](1))[170]1
  107. 1180 [153]"LOAD":[151]UT,UU%:[153]"LOAD"
  108. 1185 [141]4180
  109. 1190 [129]I[178]1[164]RN
  110. 1193 RX[178][181](4[172][187](1))[170]1:X[178][171]2[170]RX[172]6
  111. 1195 RY[178][181](3[172][187](1))[170]1:Y[178]RY[172]6
  112. 1197 [129]GH[178]1[164]RN
  113. 1198 [139]CX(GH)[178]RX[175]CY(GH)[178]RY[167]1193
  114. 1199 [130]GH
  115. 1203 CX(I)[178]RX:CY(I)[178]RY
  116. 1219 [141]4170
  117. 1220 [145]D3[141]3400,3430
  118. 1230 [130]I
  119. 1240 CC[178]1
  120. 1250 [141]4500:[153]"    HOW MANY OBJECTS ARE SHOWN ?   CMDCMD";
  121. 1260 US$[178]"0123456789":UL[178]2:[141]35:RC[178][197](UR$)
  122. 1270 [139]RC[178]RN[167]1320
  123. 1272 [139]CC[179]3[167][141]4400:[137]1280
  124. 1274 [153][163]32)"NO,":[153][163]31)"IT IS":[141]4300:[141]4300:[137]1365
  125. 1280 [153][163]31)"DEFT R Y":[153][163]29)"A G A I N":[129]ZI[178]1[164]400:[130]ZI
  126. 1285 [153][163]31)"ONONONON     ":[153][163]29)"         ":CC[178]CC[170]1:[137]1250
  127. 1295 [139]CC[178]3[167][141]4400:[137] 1365
  128. 1300 [171]
  129. 1320 RR[178]RR[170]1:[141]4300:[153]""UP$
  130. 1321 [153]"(null)LENLENLENLENRIGHT$"
  131. 1322 [153]"LEFT$(null)   LEFT$
  132. 1324 PRINT"[213][195][195][195][203]  [194] [200]
  133. 1326 [153]"(null)PEEK      PEEK LEFT$
  134. 1328 PRINT"[202][198][198][198][198][164] [194] [200]
  135. 1330 [153]"TAB(PEEKMID$ASC(null)
  136. 1332 PRINT"   "
  137. 1334 PRINT"VERY GOOD"
  138. 1365 GOSUB4175
  139. 1370 ONRNGOSUB3760,3780,3810,3840,3870,3900,3930,3960,3990,3760,4020
  140. 1380 IFX3<>0THEN1420
  141. 1385 GOSUB835:IFCT<10THEN1090
  142. 1390 PRINT"[147]":POKEUT,UU%:POKE53280,0:POKE53281,0:POKE646,7
  143. 1395 PRINT"    YOU HAVE COMPLETED 10 QUESTIONS.
  144. 1400 [141]792
  145. 1402 [153]"LOAD"
  146. 1404 [153]"      I HOPE YOU HAD FUN COUNTING"
  147. 1406 [153]"      WITH ME, BECAUSE I HAD FUN":[153]"      HELPING YOU!"
  148. 1408 RP[178](RR[173]RQ)[172]100:[139] RP[179]60 [137]1414
  149. 1410 [139] RP[177][178]60 [175] RP[179][178]90 [137]1416
  150. 1412 [153]AS$;:[153]"              EXCELLENT WAIT":[141]835:[137]1450
  151. 1414 [141]4280:[153]AS$;:[153]"YOU NEED PRACTICEWAIT":[141]835:[137]1450
  152. 1416 [141]4280:[153]AS$;:[153]"VERY GOODWAIT":[141]835:[137]1450
  153. 1420 X2[178]X3:Y2[178]Y3:X3[178]0:RN[178]11:[137]1365
  154. 1450 [141]795:CT[178]0
  155. 1452 [153]"LOAD   DO YOU WANT TO PLAY AGAIN?  Y/N
  156. 1454 GETR$:IFR$<>"Y"ANDR$<>"N"THEN1454
  157. 1456 IFR$="Y"THEN RESTORE:GOTO800
  158. 1458 POKE631,13:POKE198,2
  159. 1460 PRINT"[147]   RETURNING TO MENU"
  160. 1462 LOAD"MENU",8
  161. 1464 RUN
  162. 1466 END
  163. 3390 REM D1 & D2 RANDOMLY PICK SIMPLE SHAPE
  164. 3400 IFA5=1GOTO3420
  165. 3410 OND1GOTO3450,3460,3470,3480,3490,3500,3510,3520,3530
  166. 3420 OND1GOTO3660,3670,3680,3690,3700,3710,3720,3730,3740
  167. 3430 OND2GOTO3540,3550,3560,3570,3580,3590,3600,3610,3620,3630
  168. 3440 REM SIMPLE SHAPES
  169. 3450 PRINT"[169]  [223][157][157][157][157]    [157][157][157][157]    [157][157][157][157][146][223]  [146][169]":RETURN
  170. 3460 PRINT"[169][223][157][157][157][169]  [223][157][157][157][157][146][223]  [146][169][157][157][157][223]I":RETURN
  171. 3470 PRINT"  [157][157][157]    [157][157][157][157]    [157][157][157]  [146]":RETURN
  172. 3480 PRINT" [223][169] [157][157][157][157][146][223]  [146][169][157][157][157][157][169][160][160][223][157][157][157][157] [146][169][223] [146]":RETURN
  173. 3490 PRINT"  [223][157][157][157]   [223][157][157][157][157]   [146][169][157][157][157][157]  [146][169]":RETURN
  174. 3500 PRINT"    [157][157][157][157]    [157][157][157][157][146][223]  [146][169][157][157][157][223][169]":RETURN
  175. 3510 PRINT"[169][160][160][157][157][157][157][169]   [157][157][157][157][146][223]   [157][157][157][146][223]  [146]":RETURN
  176. 3520 PRINT"[169][223][157][157][157][169]  [223][157][157][157][157]    [157][157][157][157]    [146]":RETURN
  177. 3530 PRINT"[169][223][157][157][157][169]  [223][157][157][157]  [157][157]  [146]":RETURN
  178. 3540 PRINT"[223][157][157][157]   [223][157][157][157][157]   [146][169][157][157][169]":RETURN
  179. 3550 PRINT"  [157][157]  [157][157][157][146][223]  [146][169][157][157][157][223][169]":RETURN
  180. 3560 PRINT"[169][157][157][169][160][160][160][157][157][157][157][146][223]   [146][157][157][157][223]":RETURN
  181. 3570 PRINT"  [157][157][157][157]    [157][157][157][157]    [157][157]  [146]":RETURN
  182. 3580 PRINT"  [157][157]  [157][157][157]    [157][157][157][157]    [146]":RETURN
  183. 3590 PRINT"  [157][157]    [157][157][157][157]    [157][157][157][157]  ":RETURN
  184. 3600 PRINT"    [157][157][157][157]    [157][157][157]  [157][157]  ":RETURN
  185. 3610 PRINT"  [157][157][157][157]    [157][157][157][157]    [157][157][157][157]  [146]":RETURN
  186. 3620 PRINT"    [157][157][157]  [157][157]  [157][157][157]    [146]":RETURN
  187. 3630 PRINT"[169]  [157][157][157][157][169]   [157][157][157][157]   [146][169][157][157][157][157]  [146][169]":RETURN
  188. 3640 PRINT"  [223][157][157][157]   [223][157][157][157][157][146][223]   [157][157][157][146][223]  [146]":RETURN
  189. 3650 REM COMPLEX SHAPES
  190. 3660 PRINT"  [157][157][157][172][187][157][157][188][190][157][157][157]  ":RETURN
  191. 3670 PRINT"[223][169][157][157][157][157] [223][169][160][157][157][157][157] [146][169][223] [157][157][157][157][146][169][223]":RETURN
  192. 3680 PRINT"[223]  [146][169][157][157][157][223][169][157][157][169][223][157][157][157][169]  [223]":RETURN
  193. 3690 PRINT"[169]  [223][157][157][157][157] [146][169][223] [157][157][157][157] [223][169] [157][157][157][157][146][223]  [146][169]":RETURN
  194. 3700 PRINT"[223][169][157][157][157][157][146][223][223][169][146][169][157][157][157][157][169][146][169][223][223][157][157][157][157][146][169][223]":RETURN
  195. 3710 PRINT"[223][223][169][146][169][157][157][157][223][169][157][157][169][223][157][157][157][169][146][169][223][223][146]":RETURN
  196. 3720 PRINT"[169][223][157][157][157][169][190][188][223][157][157][157][157][146][223][187][172][146][169][157][157][157][223][169]":RETURN
  197. 3730 PRINT"[169][223][157][157][157][169][146][190][188][223][146][157][157][157][157][223][187][172][169][157][157][157][223][169]":RETURN
  198. 3740 PRINT"  [157][157][157] [146][169][223] [157][157][157][157] [223][169] [157][157][157]  [146]":RETURN
  199. 3750 REM LARGE NUMBERS 6X12 MATRIX
  200. 3760 PRINT"[169] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157][157]   [146]"
  201. 3770 RETURN
  202. 3780 PRINT"[223][145][157] [145][157][169][146][169][145][157][169]   [223][157][146][223][223][157] [157][157][169][146][169][157][157][157][169][146][169][157][157][157][169][146][169][157][157][157][169][146][169]";
  203. 3790 PRINT"[157][157][157][169][146][169][157][157] [157] [157]      [146]"
  204. 3800 RETURN
  205. 3810 PRINT"[223][145][157] [145][157][169][146][169][145][157][169]  [223][223][157][157][146][223] [157] [157][157][169][146][169][157][157][169][157][157][169][223][157][157][146][223][223][223][157] ";
  206. 3820 PRINT"[157][146][169][157][157][169][146][157][169][157][157] [157][157] [157][157][146][223][145][157][223][146][157][157][223][145][157] [145][157][169][146]"
  207. 3830 RETURN
  208. 3840 PRINT" [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] ";
  209. 3850 PRINT"[157][157][157][157][145][145][145][145][145][145][145][145][145] [157] [157] [157] [157]     "
  210. 3860 RETURN
  211. 3870 PRINT" [145][157] [157][157] [157][157] [157][157] [157][157] [157][157] [157] [157] [157] [157] [157] [157] [146][169][145][157][169]   [223][157] [157][157][146][223] ";
  212. 3880 PRINT"[157] [157] [157] [157][157][169][146][169][157][157] [157][157] [157][157] [157][157] [146][157][157][223][145][223][157][157] [145][157] [146]"
  213. 3890 RETURN
  214. 3900 PRINT"[169][157] [157][157][169][157][157][169] [146][169][157][157][169][157][157] [157][157][169][157][157][169] [146][169][157][157][169][157][157] [157][157][169][157]     [223][157][157][146][223]";
  215. 3910 PRINT" [157] [157] [157][157][169] [157][146][169][157][157] [157][157] [157][157] [157][157] [157][157][146][223][145][223][157][157] [145][157] [145][157] [145][157] [146][169]"
  216. 3920 RETURN
  217. 3930 PRINT" [145][157]      [157] [157][157][169][146][169][157][157][169][157][157][169][157][157][169][146][169][157][157][169][157][157][169][157][157][169][146][169][157][157] [157] [157] [157] [157]";
  218. 3940 PRINT" "
  219. 3950 RETURN
  220. 3960 PRINT"[169]  [223][157][146][223][223][157] [157] [157][146][169][157][157][169][157][146][169][157][157] [157] [223][157][146][223][223][157] [157] [157][146][169][157][157][169][157][146][169][157][157] [157][157] ";
  221. 3970 PRINT"[157][157][146][223][145][157][223][157][157][146][223][145][157] [145][157] [145][157][169][146][169][145][157][169] [145][157] [157][157][146][223][145][157][223][157][157][146][223][157][145] [145][157] [145][157][169][146][169][145][157][169][146]"
  222. 3980 RETURN
  223. 3990 PRINT"[169]    [223][157][157][146][223] [157] [157] [157] [157][157][169] [157][157] [157][157]  [157][157] [157][157] [157][157] [157][157][146][223][145][223][157][157] [157][145] [157][145] [157][145] [146][169]";
  224. 4000 PRINT"[169][146][169][157][157][169][157][157][169][157][157][169][146][169][157][157][169][157][157][169][157][157][169][146][169][157][157][169]"
  225. 4010 RETURN
  226. 4020 PRINT"[169]  [223][223][157][157][146][223] [157] [157] [157] [157] [157] [157] [157] [157][146][169][157][157][169][157][146][169][157][157] [157][157] [157][157][146][223]";
  227. 4030 PRINT"[145][157][223][157][157][146][223][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][146][169][157][157][169][146]"
  228. 4040 RETURN
  229. 4160 REM CURSOR POSITIONING ROUTINE
  230. 4170 PRINT"";:FORJ=1TOY:PRINT"";:NEXTJ:FORK=1TOX:PRINT"";:NEXTK:RETURN
  231. 4175 PRINT"";:FORO=1TOY2:PRINT"";:NEXTO:FORII=1TOX2:PRINT"";:NEXTII:RETURN
  232. 4180 REM CLEARS SCREEN.RANDOMISES D1,D2
  233. 4190 D1=0:D2=0:D3=1
  234. 4200 IFA5=0GOTO4240
  235. 4210 REM VALUES FOR COMPLEX SHAPES
  236. 4220 D1=INT(9*RND(1))+1:RETURN
  237. 4230 REM VALUES FOR SIMPLE SHAPES
  238. 4240 D1=INT(20*RND(1))+1
  239. 4250 IFD1>10THEND2=D1-10
  240. 4260 IFD1>10THEND3=2
  241. 4270 RETURN
  242. 4300 REM <YES> SOUND
  243. 4310 SS=54272:FORE=SSTOSS+28:POKEE,0:NEXT
  244. 4320 POKE54296,15:POKE54277,42:POKE54278,250
  245. 4330 POKE54276,23:POKE54273,23:POKE54272,191
  246. 4340 FORTM=1TO100:NEXT:POKE54276,32:FORTM=1TO200:NEXT
  247. 4350 POKE54296,0:RETURN
  248. 4399 :
  249. 4400 REM <NO> SOUND
  250. 4410 SS=54272:FORE=SSTOSS+28:POKEE,0:NEXT
  251. 4420 POKE54296,15:POKE54277,18:POKE54278,242
  252. 4430 POKE54276,33:POKE54273,4:POKE54272,48
  253. 4440 FORTM=1TO300:NEXT:POKE54276,32:FORTM=1TO400:NEXT
  254. 4450 POKE54296,0:RETURN
  255. 4499 :
  256. 4500 REM <BLIP> SOUND
  257. 4510 SS=54272:FORE=SSTOSS+28:POKEE,0:NEXT
  258. 4520 POKE54296,6:POKE54277,42:POKE54278,250
  259. 4530 POKE54276,23:POKE54273,23:POKE54272,191
  260. 4540 FORTM=1TO30:NEXT:POKE54276,32:FORTM=1TO50:NEXT
  261. 4550 POKE54296,0:RETURN
  262. 5000 REM DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1983
  263. 5010 REM 64 SHRUNK - ED VANDERZEEUW 1989
  264. 5020 REM UPDATED -BILL CUMBERLAND 1990
  265.